home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1469 / about.frm (.txt) next >
Encoding:
Visual Basic Form  |  1996-07-28  |  3.8 KB  |  119 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   1890
  5.    ClientLeft      =   1410
  6.    ClientTop       =   1560
  7.    ClientWidth     =   6825
  8.    ControlBox      =   0   'False
  9.    Height          =   2295
  10.    Icon            =   "About.frx":0000
  11.    Left            =   1350
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1890
  17.    ScaleWidth      =   6825
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   1215
  20.    Width           =   6945
  21.    Begin VB.CommandButton cmdOK 
  22.       Caption         =   "OK"
  23.       Default         =   -1  'True
  24.       Height          =   315
  25.       Index           =   2
  26.       Left            =   6060
  27.       TabIndex        =   1
  28.       Top             =   855
  29.       Width           =   675
  30.    End
  31.    Begin VB.PictureBox picDisplay 
  32.       Height          =   510
  33.       Left            =   60
  34.       ScaleHeight     =   30
  35.       ScaleMode       =   0  'User
  36.       ScaleWidth      =   445
  37.       TabIndex        =   0
  38.       Top             =   1320
  39.       Width           =   6735
  40.    End
  41.    Begin VB.Label Label1 
  42.       AutoSize        =   -1  'True
  43.       BackStyle       =   0  'Transparent
  44.       Caption         =   "Mike Stanley"
  45.       Height          =   195
  46.       Left            =   3000
  47.       TabIndex        =   4
  48.       Top             =   675
  49.       Width           =   915
  50.    End
  51.    Begin VB.Label Label8 
  52.       AutoSize        =   -1  'True
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "E-Mail:  74632.2227@compuserve.com"
  55.       Height          =   195
  56.       Left            =   1980
  57.       TabIndex        =   3
  58.       Top             =   930
  59.       Width           =   2805
  60.    End
  61.    Begin VB.Image Image1 
  62.       BorderStyle     =   1  'Fixed Single
  63.       Height          =   540
  64.       Left            =   60
  65.       Picture         =   "About.frx":030A
  66.       Top             =   135
  67.       Width           =   540
  68.    End
  69.    Begin VB.Label lblTitle 
  70.       AutoSize        =   -1  'True
  71.       BackStyle       =   0  'Transparent
  72.       Caption         =   "VBMax Electronic Message"
  73.       BeginProperty Font 
  74.          name            =   "Times New Roman"
  75.          charset         =   0
  76.          weight          =   700
  77.          size            =   24
  78.          underline       =   0   'False
  79.          italic          =   -1  'True
  80.          strikethrough   =   0   'False
  81.       EndProperty
  82.       ForeColor       =   &H00800000&
  83.       Height          =   540
  84.       Left            =   900
  85.       TabIndex        =   2
  86.       Top             =   120
  87.       Width           =   5460
  88.    End
  89. Attribute VB_Name = "frmAbout"
  90. Attribute VB_Creatable = False
  91. Attribute VB_Exposed = False
  92. Option Explicit
  93. Dim moEDisp As New CElectronicDisplay
  94. Private Sub Form_Load()
  95.     Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  96.     With moEDisp
  97.         Set .Container = picDisplay
  98.         .BackColor = &H800000
  99.         .ForeColor = vbYellow
  100.         .Caption = "VBMax Electronic Message Display" & _
  101.                     " ~~~ Visual Basic to the Max" & _
  102.                     " ~~~ Less filling-works great" & _
  103.                     " ~~~ No royalties" & _
  104.                     " ~~~ Only $10 and you get the source code too!" & _
  105.                     " ~~~ See how it works" & _
  106.                     " ~~~ Tweak it any way you want" & _
  107.                     " ~~~ E-Mail: Mike Stanley 74632.2227@compuserve.com" & _
  108.                     "                         "
  109.     End With
  110. End Sub
  111. Private Sub Form_Unload(Cancel As Integer)
  112.     moEDisp.Shutdown
  113.     Set moEDisp = Nothing
  114.     Set frmAbout = Nothing
  115. End Sub
  116. Private Sub cmdOK_Click(Index As Integer)
  117.     Unload Me
  118. End Sub
  119.